Profile of (eval 419)[Sub/Quote.pm:3]

Filename	(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 16 statements in 138µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	45µs	45µs	Type::Tiny::::BEGIN@9Type::Tiny::BEGIN@9
1	1	1	38µs	63µs	Type::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
1	1	1	6µs	22µs	Type::Tiny::::BEGIN@16Type::Tiny::BEGIN@16

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package Type::Tiny;
5					# spent 63µs (38+25) within Type::Tiny::__ANON__[(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (38µs+25µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm $$_UNQUOTED = sub {
6					($_QUOTED,$_UNQUOTED) if 0;
7					# BEGIN quote_sub PRELUDE
8					package Type::Tiny;
9					# spent 45µs within Type::Tiny::BEGIN@9 which was called: # once (45µs+0s) by Sub::Quote::_clean_eval at line 14 BEGIN {
10	1	1µs			$^H = 1762;
11	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
12	1	4µs			%^H = (
13					);
14	1	18µs	1	45µs	} # spent 45µs making 1 call to Type::Tiny::BEGIN@9
15					# END quote_sub PRELUDE
16	9	109µs	4	63µs	# spent 22µs (6+16) within Type::Tiny::BEGIN@16 which was called: # once (6µs+16µs) by Sub::Quote::_clean_eval at line 16 do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $_[0] }) }) && (do { local $_ = $_[0]; $_->DOES('JSON::Schema::Modern::Vocabulary') }))) or Type::Tiny::_failed_check(66, "__ANON__", $_[0], ); $_[0] }; }; # spent 22µs making 1 call to Type::Tiny::BEGIN@16 # spent 16µs making 1 call to JSON::Schema::Modern::Vocabulary::OpenAPI::DOES # spent 16µs making 1 call to warnings::unimport # spent 9µs making 1 call to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16]
17					}
18	1	4µs			1;
19
20					;